﻿Namespace BE

    Public Class Patente_BE

        Enum Permisos
            Denegado = 0
            Permitido = 1
        End Enum

        Dim mIdPatente As Integer
        Dim mNombre As String
        Dim mDescripcion As String
        Dim mTipo As Permisos

        Public Property Id As Integer
            Get
                Return midpatente
            End Get
            Set(value As Integer)
                midpatente = value
            End Set
        End Property

        Public Property Nombre As String
            Get
                Return mNombre
            End Get
            Set(value As String)
                mNombre = value
            End Set
        End Property

        Public Property Descripcion As String
            Get
                Return mDescripcion
            End Get
            Set(value As String)
                mDescripcion = value
            End Set
        End Property

        Public Property Tipo As Permisos
            Get
                Return mTipo
            End Get
            Set(value As Permisos)
                mTipo = value
            End Set
        End Property



        Public Overrides Function ToString() As String
            Return Me.Id
        End Function


    End Class


    




End Namespace
